BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
HotTracking = -1 'True
LicValid = -1 'True
Begin ciaXPProgress.ProgressBar prg
Height = 195
Left = 9930
TabIndex = 1
Top = 210
Width = 1530
_ExtentX = 2699
_ExtentY = 344
GradientFrom = 3724597
GradientTo = 11333035
HighLightColorFrom= 3724597
HighLightColorTo= 11333035
LicValid = -1 'True
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim PNL As XPStatusBar
Dim LastColumn As Integer
Private Sub cboColorScheme_Click()
XPStatusBar1.Theme = cboColorScheme.ListIndex
End Sub
Private Sub cboJustify_Click()
XPStatusBar1.Justify = cboJustify.ListIndex
End Sub
Private Sub cmdUpdate_Click()
hsbIDX_Change
End Sub
Private Sub Form_Load()
Set XPStatusBar1.PanelControl(3) = prg
cboJustify.ListIndex = XPStatusBar1.Justify
cboColorScheme.ListIndex = XPStatusBar1.Theme
hsbIDX.Max = XPStatusBar1.PanelCount
hsbIDX_Change
End Sub
Private Sub cmdProgressBar_Click()
prg.Value = Val(txtPRG)
End Sub
Private Sub PropertyPage_ApplyChanges()
Dim i
With XPStatusBar1
i = LastColumn
.Caption(i) = txtCaption
.AutoSize(i) = (chkAutoSize.Value = vbChecked)
.PanelWidth(i) = Val(txtPanelWidth)
.Alignment(i) = cboAlignment.ListIndex
.CaptionPosition(i) = cboPosition.ListIndex
.Enabled(i) = (chkEnabled.Value = vbChecked)
End With
'XPStatusBar1.UpdateHeaders
End Sub
Private Sub hsbIDX_Change()
Dim i
Dim L As Boolean, R As Boolean
PropertyPage_ApplyChanges
i = hsbIDX
LastColumn = i
With XPStatusBar1
If .PanelCount >= i Then
txtPanelID = i
txtCaption = .Caption(i)
txtPanelWidth = .PanelWidth(i)
cboAlignment.ListIndex = .Alignment(i)
cboPosition.ListIndex = .CaptionPosition(i)
chkAutoSize.Value = Abs(.AutoSize(i))
chkEnabled.Value = Abs(.Enabled(i))
Else
MsgBox "Column index '" & i & "' not found.", vbCritical
' SetTagControls
End If
End With
End Sub
Private Sub XPStatusBar1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single, PanelIndex As Integer, ByVal Panel As ciaXPStatusBar.Panel)
Debug.Print "XPStatusBar1_MouseDown Event Button = " & Button & " Shift = " & Shift & " X = " & X & " Y = " & Y & " Panel Index = " & PanelIndex & " Panel.Caption = " & Panel.Caption
End Sub
Private Sub XPStatusBar1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single, PanelIndex As Integer, ByVal Panel As ciaXPStatusBar.Panel)
Debug.Print "XPStatusBar1_MouseMove Event Button = " & Button & " Shift = " & Shift & " X = " & X & " Y = " & Y & " Panel Index = " & PanelIndex & " Panel.Caption = " & Panel.Caption
End Sub
Private Sub XPStatusBar1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single, PanelIndex As Integer, ByVal Panel As ciaXPStatusBar.Panel)
Debug.Print "XPStatusBar1_MouseUp Event Button = " & Button & " Shift = " & Shift & " X = " & X & " Y = " & Y & " Panel Index = " & PanelIndex & " Panel.Caption = " & Panel.Caption
(.txt)